Option Explicit
'ۭqҲ
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With TextBox1
        If Len(.Text) > 0 Then
            If IsNumeric(.Text) Then
                If Len(.Text) <> 5 Then
                    MsgBox "пJ5ƼƦr"
                    .Value = ""
                    Cancel = True
                End If
            Else
                MsgBox "LkJƦrH~"
                .Value = ""
                Cancel = True
            End If
        Else
        End If
    End With
End Sub
